home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1998 #6 / 1998 CD 6 (Gul).iso / 06.dir / 00410.ls < prev    next >
Encoding:
Text File  |  1996-02-08  |  1.1 KB  |  40 lines
  1. on flyThruNew
  2.   global gFlyThru
  3.   puppetSprite(32, 0)
  4.   if the frame = label("Moov1") then
  5.     puppetSprite(28, 0)
  6.     set the movieTime of sprite 2 to 0
  7.     set the movieRate of sprite 2 to 0
  8.     set lCastNum to the castNum of sprite 2
  9.     set the castNum of sprite 2 to the number of cast "BlankM.MOV"
  10.     updateStage()
  11.     puppetSprite(2, 0)
  12.     closePanel()
  13.     set gDestNumber to string(the clickOn - 6)
  14.     puppetSprite(15, 0)
  15.     TurnOffRollovers()
  16.     TurnOffMovies()
  17.   else
  18.     if the frame = label("Moov2") then
  19.       puppetSprite(28, 0)
  20.       set the movieTime of sprite 2 to 0
  21.       set the movieRate of sprite 2 to 0
  22.       set lCastNum to the castNum of sprite 2
  23.       set the castNum of sprite 2 to the number of cast "BlankS.MOV"
  24.       updateStage()
  25.       puppetSprite(2, 0)
  26.       closePanel()
  27.       set gDestNumber to string(the clickOn - 6)
  28.       puppetSprite(15, 0)
  29.       TurnOffRollovers()
  30.       TurnOffMovies()
  31.     end if
  32.   end if
  33.   set lFrame to "FlyThru" & string(gFlyThru)
  34.   set gFlyThru to gFlyThru + 1
  35.   if gFlyThru > 4 then
  36.     set gFlyThru to 1
  37.   end if
  38.   go(lFrame)
  39. end
  40.